W poni┐szym przyk│adzie za│o┐ono, ┐e w tabeli Pracownicy istnieje pole Zarobki. Nale┐y zauwa┐yµ, ┐e w tabeli Pracownicy znajduj╣cej siΩ w bazie danych Northwind nie ma takiego pola.
W tym przyk│adzie wybierane s╣ pola Nazwisko i ImiΩ z ka┐dego rekordu, w kt≤rym warto£µ pierwszego z tych p≤l r≤wna jest "Kowalski".
W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.
Sub WhereX()
Dim dbs As Database, rst As Recordset
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Wybierz te rekordy z tabeli Pracownicy,
' dla kt≤rych warto£µ pola Nazwisko
' r≤wna jest "Kowalski".
Set rst = dbs.OpenRecordset("SELECT Nazwisko, " _
& "ImiΩ FROM Pracownicy " _
& "WHERE Nazwisko = 'Kowalski';")
' Zape│nij obiekt Recordset.
rst.MoveLast
' Wywo│aj procedurΩ WyliczPola w celu
' wydrukowania zawarto£ci obiektu Recordset.
WyliczPola rst, 12
dbs.Close
End Sub